Những câu hỏi liên quan
Nguyễn Đức Nhật Minh
Xem chi tiết
Minh Lệ
8 tháng 12 2021 lúc 17:49

If x<y then x:=x-20 else y:=y-3;

x=100, y=50 .x>y -> ĐK đúng -> x:=x-20=100-20=80

Vậy sau khi thực hiện đoạn lệnh trên thì x=80, y=50

Bình luận (0)
Hirabbitx
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 1 2022 lúc 9:59

F=8

Bình luận (0)
huỳnh vy
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 12 2021 lúc 11:53

z=4

Bình luận (0)
Nguyễn Thuỳ Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:56

a) Điều kiện là a>6

Bình luận (0)
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:56

b) Câu lệnh của câu lệnh 1 là x:=x*7

Câu lệnh của câu lệnh 2 là y:=y-4

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
6 tháng 3 2019 lúc 13:08

Đáp án đúng : D

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
3 tháng 5 2017 lúc 13:54

Đáp án đúng : C

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
15 tháng 12 2018 lúc 3:36

Đáp án đúng : B

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
23 tháng 6 2017 lúc 17:10

Đáp án đúng : A

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
3 tháng 2 2017 lúc 14:17

Đáp án đúng : C

Bình luận (0)
Lương Xuân Hiếu
Xem chi tiết
Minh Lệ
16 tháng 4 2023 lúc 12:19

Câu 1.

a/ x:=7;

if (75 mod 5) = 0 then x := x + 1; 

-> Điều kiện đúng -> x=7+1= 8

if x > 10 then x := x + 1 else x := x - 1;

x> 7 <=> 7 > 10 -> Điều kiện sai -> rẽ nhánh -> x=7-1 = 6

b/ 

Câu lệnh đó không hợp lệ. Vì để sai cấu trúc rẻ nhánh (thùa dấu ; ) sau max:=x

 

Bình luận (0)
Minh Lệ
16 tháng 4 2023 lúc 12:22

Câu 2

Program HOC24;

var t,i: byte;

begin

t:=0;

for i:=1 to 10 do t:=t+i;

write('Tong la: ',t);

readln

end.

Câu 3

Program HOC24;

var i,t: byte;

begin

i:=1; t:=0;

while i<=10 do

begin

t:=t+i;

i:=i+1;

end;

write('Tong la: ',t);

readln

end.

Bình luận (0)